
statement: 打印 {语句} ->
(write-line {语句})

statement: {a}+{b} ->
(+ {a} {b})

statement: {a}-{b} ->
(- {a} {b})

statement: {a}*{b} ->
(* {a} {b})

statement: {a}/{b} ->
(/ {a} {b})

statement: {a}>{b} ->
(> {a} {b})

statement: {a}={b} ->
(= {a} {b})

statement: {a}<{b} ->
(< {a} {b})

statement: -{a} ->
(- {a})

statement: 定义全局变量{a}为{b} ->
(defparameter {a} {b})

statement: 定义{a}的{函数}为{b} ->
(defun {函数}({a}) {b})

statement: 定义{a}与{b}的{函数}为{c} ->
(defun {函数}({a} {b}) {c})

statement: 定义{a}[、{b}]*和{c}的{函数}为{d} ->
(defun {函数}({a} [{b}]* {c}) {d})

statement: 定义{a}的{函数}：[{b}]+ ->
(defun {函数}({a}) [({b})]+)

statement: {a}的{函数} ->
({函数} {a})

statement: {a}与{b}的{函数} ->
({函数} {a} {b})

statement: {a}[、{b}]*和{c}的{函数} ->
({函数} {a} [{b}]* {c})

statement: {a}并且{b} ->
(and {a} {b})

statement: {a}或者{b} ->
(or {a} {b})

statement: {a}的否 ->
(not {a})

statement: [当{a}时，则为{b}；]+否则为{c} ->
(cond [({a} {b})]+ (else {c}) )

statement: [当{a}时，则为{b}；]+ ->
(cond [({a} {b})]+ )

statement: 如果{a}，则{b}，否则{c} ->
(if {a} {b} {c})

statement: [令{a}为{b}；]+在{c}中 ->
(let ([({a} {b})]+) {c})

statement: 序偶({x}，{y}) ->
(cons {x} {y})

statement: 序偶{z}的x部分 ->
(car {z});

statement: 序偶{z}的y部分 ->
(cdr {z})

statement: 将{a}应用于{b} ->
(map {a} {b})

statement：使{a}={b} ->
(setf {a} {b})

statement: [{a}，]*{b}。 ->
(begin [{a}]* {b})

statement: 格式化输出{a} ->
(format nil "~%~S" {a})

